Workplace Effectiveness: Critical Thinking Skills/Workplace Effectiveness: Critical Thinking Skills.iso/pc/Files/Clue.dxr/00003_Navigation handlers.ls

Text File | 1998-09-17 | 724 b | 34 lines

global gMasterData, gSection, gClueData

on goIntro
  go("intro")
  set gSection to #intro
end

on goQuestions
  stopSound2()
  go("1")
  audio1xOnly(gMasterData, "58")
  set gSection to #questions
  if voidp(gClueData) then
    set gClueData to [#questionNum: 1, #answerSprite: 5, #score: 0, #clickChoices: [#e, #e, #e, #e, #e, #e, #e, #e, #e, #e, #e, #e, #e, #e, #e, #e, #e, #e, #e, #e, #e]]
  end if
  set the questionNum of gClueData to 1
end

on goAnswers
  go("a1")
  goNarrator(gMasterData, "59a")
  set gSection to #answers
  set the questionNum of gClueData to 1
end

on goScore
  go("score")
  displayResult()
  if not activationOn(gMasterData) then
    activate(gMasterData)
  end if
  set gSection to #score
end